home *** CD-ROM | disk | FTP | other *** search
/ OctaMED Sound Studio 1 / OctaMED SoundStudio V1.iso / docs / rexx / define_f7.omed < prev    next >
Text File  |  1996-06-18  |  450b  |  17 lines
  1. /* Define F7 */
  2. if ~open("f_keys","T:f_keys.omedtemp",R) then exit
  3. f6 = readln("f_keys")
  4. f7 = readln("f_keys")
  5. f8 = readln("f_keys")
  6. f9 = readln("f_keys")
  7. f10 = readln("f_keys")
  8. call close("f_keys")
  9. if ~open("f_keys","T:f_keys.omedtemp",W) then exit
  10. 'ed_getcurrline var f7'
  11. call writeln("f_keys",f6)
  12. call writeln("f_keys",f7)
  13. call writeln("f_keys",f8)
  14. call writeln("f_keys",f9)
  15. call writeln("f_keys",f10)
  16. call close("f_keys")
  17. wi_showstring "Defined."